|
100
|
How can I remove an event
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to False
Set ComFixedCellWidth to 36
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Variant vIndex
Get ComDate to vIndex
Send ComRemove of hoEvents1 vIndex
Send Destroy to hoEvents1
End_Procedure
|
|
99
|
How can I count the events
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Variant v
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Get ComCount of hoEvents1 to v
Send Destroy to hoEvents1
Variant var_Count
Move v to var_Count
End_Procedure
|
|
98
|
How can I clear all events
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Send ComClear of hoEvents1
Send Destroy to hoEvents1
End_Procedure
|
|
96
|
How can I assign an icon to a date
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to False
Set ComFixedCellWidth to 36
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
95
|
How can I enable or disable a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComDisabled of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
94
|
How can I mark or highlight a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComMarker of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
93
|
How can I assign a tooltip or a comment to a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Set ComCommentTitle of hoEvent to "T I T L E"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
92
|
How can I assign any extra data to a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComUserData of hoEvent to "your data"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
91
|
How can I change the background color for a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBackColor of hoEvent to (RGB(255,0,0))
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
90
|
How can I change the foreground color for a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComForeColor of hoEvent to (RGB(255,0,0))
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
89
|
How can I draw a date as strikeout
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComStrikeOut of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
88
|
How can I underline a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComUnderline of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
87
|
How can I make italic a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComItalic of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
86
|
How can I bold a date
Procedure OnCreate
Forward Send OnCreate
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBold of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
85
|
How can I get the last visible date being displayed in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComShowNonMonthDays to False
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComLastVisibleDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is the last visible date"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
84
|
How can I get the first visible date being displayed in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComShowNonMonthDays to False
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComFirstVisibleDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is the first visible date"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
83
|
How can I hide the ticker that's shown for dates that have a tooltip or a comment
Procedure OnCreate
Forward Send OnCreate
Set ComCommentBackColor to (ComBackColor(Self))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
82
|
How can I change the visual aspect of the dates that have a comment or a tooltip assigned
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComCommentBackColor to |CI$1000000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
81
|
How can I change the visual aspect of the dates that have a comment or a tooltip assigned
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 11 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 1 "CP:11 4 2 -2 -2" to Nothing
Send Destroy to hoAppearance
Set ComCommentBackColor to |CI$1000000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
80
|
How can I change the color to highlight the dates that have a comment or a tooltip assigned
Procedure OnCreate
Forward Send OnCreate
Set ComCommentBackColor to (RGB(0,0,0))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
79
|
How can I hide the days that are shown in gray, and doesn' belong to the month
Procedure OnCreate
Forward Send OnCreate
Set ComShowNonMonthDays to False
End_Procedure
|
|
78
|
How can I change the color for non working days
Procedure OnCreate
Forward Send OnCreate
Set ComNonworkingDays to 6
Set ComNonworkingDaysPattern to OLEexPatternCross
Set ComNonworkingDaysColor to (RGB(255,0,0))
End_Procedure
|
|
77
|
How can I change the pattern or the style to draw the non working days
Procedure OnCreate
Forward Send OnCreate
Set ComNonworkingDays to 6
Set ComNonworkingDaysPattern to OLEexPatternCross
End_Procedure
|
|
76
|
How can I show or hide the non working days
Procedure OnCreate
Forward Send OnCreate
Set ComNonworkingDays to 0
End_Procedure
|
|
75
|
How can I specify the non working days
Procedure OnCreate
Forward Send OnCreate
Set ComNonworkingDays to 6
End_Procedure
|
|
72
|
How can I specify the min and max years to scroll within
Procedure OnCreate
Forward Send OnCreate
Set ComMinScrollYear to 2001
Set ComMaxScrollYear to 2010
End_Procedure
|
|
71
|
How do I let the tooltip being displayed longer
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipPopDelay to 10000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
69
|
How can I change the date that gets the focus
Procedure OnCreate
Forward Send OnCreate
Set ComDate to "1/1/2001"
Set ComFocusDate to "1/2/2001"
End_Procedure
|
|
68
|
How can I select a new date
Procedure OnCreate
Forward Send OnCreate
Set ComDate to "1/1/2001"
Set ComValue to "1/2/2001"
End_Procedure
|
|
67
|
I've seen that the width of the tooltip is variable. Can I make it larger
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipWidth to 328
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
66
|
How do I disable showing the tooltip for all control
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 0
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
65
|
How do I show the tooltip quicker
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
64
|
How do I call your x-script language
Procedure OnCreate
Forward Send OnCreate
Get ComExecuteTemplate "BackColor = RGB(255,0,0)" to Nothing
End_Procedure
|
|
63
|
How do I call your x-script language
Procedure OnCreate
Forward Send OnCreate
Set ComTemplate to "BackColor = RGB(255,0,0)"
End_Procedure
|
|
62
|
Can I change the font for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Variant voStdFont
Get ComToolTipFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Tahoma"
Set ComSize of hoStdFont to 14
Send Destroy to hoStdFont
Set ComToolTipWidth to 364
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
61
|
How can I change the caption of the Today's button
Procedure OnCreate
Forward Send OnCreate
Set ComTodayCaption to "Azi"
End_Procedure
|
|
59
|
How do I unselect a date
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Set ComDate to "1/1/2001"
Set ComSelDate to "1/2/2001"
Set ComSelDate to "1/3/2001"
Set ComSelDate to "1/4/2001"
Send ComUnSelDate "1/3/2001"
End_Procedure
|
|
58
|
How do I get the list of selected dates
// Fired when the selection is changed.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Showln (ComSelDate(Self))
End_Procedure
|
|
57
|
How do I select multiple dates
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Set ComDate to "1/1/2001"
Set ComSelDate to "1/2/2001"
Set ComSelDate to "1/3/2001"
Set ComSelDate to "1/4/2001"
End_Procedure
|
|
56
|
How do I get the selected date
Procedure OnCreate
Forward Send OnCreate
Set ComSelDate to (ComDate(Self))
End_Procedure
|
|
55
|
How can I build a date expression
Procedure OnCreate
Forward Send OnCreate
Set ComDate to (ComDoDate(Self,2001,1,1))
End_Procedure
|
|
54
|
How can I select a new date
Procedure OnCreate
Forward Send OnCreate
Set ComDate to (ComDoDate(Self,2001,1,1))
Set ComSelDate to (ComDoDate(Self,2001,1,2))
End_Procedure
|
|
53
|
How can I select a new date
Procedure OnCreate
Forward Send OnCreate
Set ComDate to "1/1/2001"
Set ComSelDate to "1/2/2001"
End_Procedure
|
|
52
|
How can I change the browsed date
Procedure OnCreate
Forward Send OnCreate
Set ComDate to "1/1/2001"
End_Procedure
|
|
51
|
How can I show or hide the buttons that in the header
Procedure OnCreate
Forward Send OnCreate
Set ComShowYearSelector to False
Set ComShowMonthSelector to False
End_Procedure
|
|
50
|
How can I show or hide the buttons that scrolls the years
Procedure OnCreate
Forward Send OnCreate
Set ComShowYearSelector to False
End_Procedure
|
|
49
|
How can I disable changing the month in the months selector
Procedure OnCreate
Forward Send OnCreate
Set ComShowMonthSelector to False
End_Procedure
|
|
48
|
How can I change the visual aspect of the selected date, using your EBN
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,255))
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to |CI$1000000
Set ComSelForeColor to (ComBackColor(Self))
End_Procedure
|
|
47
|
How can I change the colors for selected dates
Procedure OnCreate
Forward Send OnCreate
Set ComSelBackColor to (RGB(0,0,0))
Set ComSelForeColor to (RGB(255,255,255))
End_Procedure
|
|
46
|
How can I change the color of the line arround a month
Procedure OnCreate
Forward Send OnCreate
Set ComDrawBorderLine to OLELargeDots
Set ComBorderLineColor to (RGB(255,0,0))
End_Procedure
|
|
45
|
How can I change the style of the line arround a month
Procedure OnCreate
Forward Send OnCreate
Set ComDrawBorderLine to OLELargeDots
End_Procedure
|
|
44
|
How can I specify the number of months being displayed
Procedure OnCreate
Forward Send OnCreate
Set ComShowTodayButton to False
Set ComShowYearScroll to False
Set ComMinMonthX to 2
Set ComMaxMonthX to 2
Set ComMinMonthY to 2
Set ComMaxMonthY to 2
End_Procedure
|
|
43
|
How can I lock the control, so user can't select a new date
Procedure OnCreate
Forward Send OnCreate
Set ComLocked to True
End_Procedure
|
|
42
|
How do I change the first day of the week
Procedure OnCreate
Forward Send OnCreate
Set ComFirstDay to OLEMonday
End_Procedure
|
|
41
|
How do I change the name of the months
Procedure OnCreate
Forward Send OnCreate
Set ComMonthNames to "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
End_Procedure
|
|
40
|
How do I change the name of the months
Procedure OnCreate
Forward Send OnCreate
Set ComMonthName OLEJanuary to "Jan"
Set ComMonthName OLEFebruary to "Feb"
Set ComMonthName OLEMarch to "Mar"
Set ComMonthName OLEApril to "Apr"
Set ComMonthName OLEMay to "May"
Set ComMonthName OLEJune to "Jun"
Set ComMonthName OLEJuly to "Jul"
Set ComMonthName OLEAugust to "Aug"
Set ComMonthName OLESeptember to "Sep"
Set ComMonthName OLEOctober to "Oct"
Set ComMonthName OLENovember to "Nov"
Set ComMonthName OLEDecember to "Dec"
End_Procedure
|
|
39
|
How do I change the name for each week day
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to False
Set ComFixedCellWidth to 24
Set ComFixedCellHeight to 16
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComHeaderForeColor to (RGB(255,0,0))
Set ComHeaderBackColor to (RGB(255,255,255))
End_Procedure
|
|
38
|
How can I specify the width and height for dates being displayed in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to False
Set ComFixedCellWidth to 22
Set ComFixedCellHeight to 16
End_Procedure
|
|
37
|
How can I specify the width and height for dates being displayed in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to False
Set ComFixedCellWidth to 32
Set ComFixedCellHeight to 24
End_Procedure
|
|
36
|
How do I change the appearance for dates in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComAppearanceDay to OLEDay3D
Set ComBackColor to |CI$8000000f
End_Procedure
|
|
35
|
How do I specify the color for the grid lines
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLine to OLESmallDots
Set ComGridLineColor to (RGB(255,0,0))
End_Procedure
|
|
34
|
How do I draw the grid lines
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLine to OLESmallDots
End_Procedure
|
|
33
|
How do I change the foreground color for the week days and week numbers header
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderForeColor to (RGB(255,0,0))
Set ComShowWeeks to True
End_Procedure
|
|
32
|
How do I change the background color for the week days and week numbers header
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderBackColor to (RGB(255,0,0))
Set ComShowWeeks to True
End_Procedure
|
|
31
|
How can I show or hide the 'Today' button
Procedure OnCreate
Forward Send OnCreate
Set ComShowTodayButton to False
End_Procedure
|
|
30
|
How can I show or hide the scroll bar that changes the year
Procedure OnCreate
Forward Send OnCreate
Set ComShowYearScroll to False
End_Procedure
|
|
29
|
How can I show or hide the header that displays the months
Procedure OnCreate
Forward Send OnCreate
Set ComShowMonth to False
End_Procedure
|
|
28
|
How can I show or hide the header that displays the week days
Procedure OnCreate
Forward Send OnCreate
Set ComShowDays to False
End_Procedure
|
|
27
|
How do I show or hide the weeks
Procedure OnCreate
Forward Send OnCreate
Set ComShowWeeks to True
End_Procedure
|
|
26
|
How can I change the visual appearance of Today date in the calendar
Procedure OnCreate
Forward Send OnCreate
Set ComMarkToday to True
Set ComBackground OLEexMarkToday to (RGB(255,0,0))
End_Procedure
|
|
25
|
How do I mark the Today date
Procedure OnCreate
Forward Send OnCreate
Set ComMarkToday to True
End_Procedure
|
|
24
|
How can I show the control's selection even if the control loses the focus
Procedure OnCreate
Forward Send OnCreate
Set ComHideSelection to False
End_Procedure
|
|
23
|
How can I hide the control's selection when the control loses the focus
Procedure OnCreate
Forward Send OnCreate
Set ComHideSelection to True
End_Procedure
|
|
22
|
How do I enable single selection
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to True
End_Procedure
|
|
21
|
How do I enable multiple selection
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
End_Procedure
|
|
20
|
How do I disable or enable the control
Procedure OnCreate
Forward Send OnCreate
Set ComEnabled to False
End_Procedure
|
|
19
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
18
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
17
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
16
|
How can I change the visual appearance of the selected month, in the months selector, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexMonthSelect to |CI$1000000
Set ComBackground OLEexMonthSelectForeColor to (RGB(255,0,0))
End_Procedure
|
|
15
|
How can I change the visual appearance of Today date in the calendar, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexMarkToday to |CI$1000000
Set ComBackground OLEexDropDownSelForeColor to (RGB(1,0,0))
Set ComSelForeColor to (RGB(0,0,0))
Set ComMarkToday to True
End_Procedure
|
|
14
|
How can I change the visual appearance of separator between calendar and 'Today' button , using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDateSeparatorBar to |CI$1000000
End_Procedure
|
|
13
|
How can I change the visual appearance of the scrolling bar for years, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexDateScrollRange to |CI$1000000
Set ComBackground OLEexDateScrollThumb to |CI$2000000
End_Procedure
|
|
12
|
How can I change the visual appearance of 'Today' button, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexDateTodayUp to |CI$1000000
Set ComBackground OLEexDateTodayDown to |CI$2000000
End_Procedure
|
|
11
|
How can I change the visual appearance of header , using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDateHeader to |CI$1000000
Set ComHeaderForeColor to (RGB(255,0,0))
End_Procedure
|
|
10
|
How can I change the visual appearance of header that week numbers, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexWeeksHeader to |CI$1000000
Set ComHeaderForeColor to (RGB(255,0,0))
Set ComShowWeeks to True
End_Procedure
|
|
9
|
How can I change the visual appearance of header that displays days, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexDaysHeader to |CI$1000000
End_Procedure
|
|
8
|
How can I change the visual appearance of the drop down button, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComBackground OLEexDropDownButtonUp to |CI$1000000
Set ComBackground OLEexDropDownButtonDown to |CI$2000000
End_Procedure
|
|
7
|
How do I change the visual appearance of the left and right buttons in the calendar's header, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexScrollLeft to |CI$1000000
Set ComBackground OLEexScrollRight to |CI$1000000
End_Procedure
|
|
6
|
How do I change the visual appearance of the up and down buttons in the calendar's header, using EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexScrollUp to |CI$1000000
Set ComBackground OLEexScrollDown to |CI$1000000
End_Procedure
|
|
5
|
How do I change the control's foreground color
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
End_Procedure
|
|
4
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(200,200,200))
End_Procedure
|
|
3
|
How can I change the control's font
Procedure OnCreate
Forward Send OnCreate
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComName of hoStdFont to "Verdana"
Send Destroy to hoStdFont
End_Procedure
|
|
2
|
How do I change the control's border, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
End_Procedure
|
|
1
|
How do I remove the control's border
Procedure OnCreate
Forward Send OnCreate
Set ComAppearance to OLENone2
End_Procedure
|